home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs07.d81
/
saided.arc
/
EDITOR.DOC
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
6KB
|
100 lines
99 POKE45,130:POKE46,031:CLR:POKE53265,PEEK(53265)AND239
100 POKE53280, 0:POKE53281, 0:PRINT"[147]";
101 PRINT"[159][176]``````````````````````````````````````[174]} [181][153][166][166][166][166][166] [182][146][158]sUPER aIDE dOCUME";
102 PRINT"NTATION [181][146][153][166][166][166][166][166] [182][146][159]}[171]``````````````````````````````````````[179]}[153]sCREEN ";
103 PRINT"EDITOR IS A MODIFICATION OF AN[159]}}[153]EXCELLENT PUBLIC DOMAIN PROGRAM. nOW";
104 PRINT",[159]}}[153]HOWEVER, SEVERAL THINGS WORK A BIT[159]}}[153]DIFFERENTLY. fIRST, SCRE";
105 PRINT"EN SCROLLING[159]}}[153]IS DISABLED WITH ONLY ONE EXCEPTION.[159]}}[153]iNSERT MODE W";
106 PRINT"ILL STILL FUNCTION. tHIS[159]}}[153]CAN CAUSE AN INADVERTANT SCREEN SCROLL[159]}}[153]D";
107 PRINT"OWN, DESTROYING PART OF THE SCREEN[159]}}[153]BEING WORKED ON. wE CONSIDERE";
108 PRINT"D IT A[159]}}[153]WORTHWHILE TRADEOFF TO BE ABLE TO KEEP[159]}}[153]INSERTING AND DELET";
109 PRINT"ING -- BUT BE CARE-[159]}}[153]FUL. tHE LOWER RIGHT CORNER OF THE[159]}}[153]SCREEN ";
110 PRINT"IS ALSO NOT CORRECTLY HANDLED[159]}}[153]IN DIRECT MODE. tHE REASON IS BECAUS";
111 PRINT"E[159]}}[153]THE LOWER RIGHT CORNER OF ANY SCREEN[159]}}[153]NORMALLY DISPLAYED MUST H";
112 PRINT"AVE THE POKE[159]}}[153]VALUE PUT IN SCREEN ram AND THE CHAR-[159]}}[153]ACTER COLOR P";
113 PRINT"OKED INTO THE CORRESPOND-[159]}}[153]ING COLOR ram. iF THIS IS NOT DONE, AN[159]}[171]``";
114 PRINT"````````````[178]````````[178]``````````````[179]}[155]sCREEN eDITOR[159]} [154]pAGE 1 [159]}[155]rETUR";
115 PRINT"N = [199]O [207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
116 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
117 GOSUB50000
199 POKE53265,PEEK(53265)AND239:CLR
200 POKE53280, 0:POKE53281, 0:PRINT"[147]";
201 PRINT"[159][176]``````````````````````````````````````[174]} [181][146][153][166][166][166][166][166] [182][146][158]sUPER aIDE dOCU";
202 PRINT"MENTATION [181][146][153][166][166][166][166][166] [182][146][159]}[171]``````````````````````````````````````[179]}[153]UNDES";
203 PRINT"IRABLE SCREEN SCROLL WILL OCCUR[159]}}[153]DURING PROGRAM EXECUTION. tHE sCR";
204 PRINT"EEN[159]}}[153]eDITOR MAY ALSO BE ACCESSED DURING AN[159]}}[153]ACTUAL PROGRAM RUN TO S";
205 PRINT"NITCH A LOW-RES[159]}}[153]SCREEN FOR USE ELSEWHERE OR FOR MODI-[159]}}[153]FICATION. b";
206 PRINT"e aware THAT IF YOU ENTER[159]}}[153]THE EDITOR IN THIS MANNER, THE LOWER[159]}}";
207 PRINT"[153]RIGHT CORNER OF THE SCREEN WILL BE RE-[159]}}[153]PRODUCED IN THE PRINT STATEME";
208 PRINT"NTS. tHE[159]}}[153]LAST CHARACTER MUST BE DELETED AND THE[159]}}[153]PROPER pokeS USED";
209 PRINT". wHEN THE EDITOR IS[159]}}[153]ACCESSED, A HELP SCREEN IS DISPLAYED.[159]}}[153]fUNCT";
210 PRINT"ION KEY 7 (F7) TOGGLES BETWEEN[159]}}[153]THE HELP SCREEN AND THE SCREEN YOU ";
211 PRINT"ARE[159]}}[153]CREATING. aLL OTHER COMMANDS MUST BE[159]}}[153]EXECUTED FROM THE WORK ";
212 PRINT"SCREEN. tHE F2[159]}}[153]KEY WILL COMPILE A basic PROGRAM THAT[159]}}[153]REPLACES A";
213 PRINT"NY RESIDENT basic PROGRAM[159]}}[153]ALREADY IN MEMORY. tHE UTILITY IS ALSO[159]}[171]";
214 PRINT"``````````````[178]````````[178]``````````````[179]}[155]sCREEN eDITOR[159]} [154]pAGE 2 [159]}[155]rET";
215 PRINT"URN = [199]O [207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
216 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
217 GOSUB50000
299 POKE53265,PEEK(53265)AND239:CLR
300 POKE53280, 0:POKE53281, 0:PRINT"[147]";
301 PRINT"[159][176]``````````````````````````````````````[174]} [181][146][153][166][166][166][166][166] [182][146][158]sUPER aIDE dOCU";
302 PRINT"MENTATION [181][146][153][166][166][166][166][166] [182][146][159]}[171]``````````````````````````````````````[179]}[153]EXITE";
303 PRINT"D WHEN THIS OPTION IS SELECTED.[159]}}[153]tHE F1 AND F3 KEYS WILL CHANGE BOR";
304 PRINT"DER[159]}}[153]AND BACKGROUND COLORS RESPECTIVELY. iN[159]}}[153]ADDITION, THE NORMAL sU";
305 PRINT"PER aIDE COLOR[159]}}[153]CHANGE ROUTINES WILL ALSO WORK. tEXT[159]}}[153]COLOR CAN B";
306 PRINT"E CHANGED BY ctrl/commodore[159]}}[153]KEY PRESSES FOLLOWED BY A COLOR KEY OR[159]}}";
307 PRINT"[153]BY USING THE REGULAR sUPER aIDE COLOR[159]}}[153]CHANGE ROUTINE. pRESSING F8 W";
308 PRINT"ILL EXIT[159][221][221][153]TO THE [194][193][211][201][195] MODE WITHOUT CREATING THE[159][221][221][153]NEW [194][193][211][201][195] PROGRAM";
309 PRINT". tHE SCREEN YOU ARE[159]}}[153]WORKING ON WILL BE LOST. tHIS VERSION[159]}}[153]OF TH";
310 PRINT"E SCREEN EDITOR WILL WORK ONLY[159]}}[153]WITH sUPER aIDE. tHE ORIGINAL PROG";
311 PRINT"RAM[159]}}[153]APPEARS ON tpug DISK #507. tHIS EDITOR[159]}}[153]IS A very USEFUL TOOL I";
312 PRINT"N CREATING COM-[159]}}[153]PLICATED SCREENS EASILY. aLL LO-RES[159]}}[153]SCREENS IN ";
313 PRINT" sUPER aIDE WERE CREATED[159]}}[153]USING THIS EDITOR. [159]}[171]";
314 PRINT"``````````````[178]````````[178]``````````````[179]}[155]sCREEN eDITOR[159]} [154]pAGE 3 [159]}[155]rET";
315 PRINT"URN = [199]O [207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
316 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
317 GOSUB50000
9500 CO=1:A$=" [211]EE [205]ORE [196]OCUMENTATION ":B$=" [197]XIT [212]HE [208]ROGRAM "
9501 POKE53265,PEEK(53265)AND239
9502 POKE53280, 0:POKE53281, 0:PRINT"[147]";
9503 PRINT"[159][176]``````````````````````````````````````[174]} [181][146][153][166][166][166][166][166] [182][146][158]sUPER aIDE dOCU";
9504 PRINT"MENTATION [181][146][153][166][166][166][166][166] [182][146][159]}[171]``````````````````````````````````````[179]} ";
9505 PRINT" }} [153]dO YOU WISH TO: ";
9506 PRINT" [159]}} [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] [159]}} [176]```````````````````";
9507 PRINT"`````[174] }} }[153] sEE mORE dOCUMENTATION [146][159]} }} } ";
9508 PRINT" } }} } [153]eXIT tHE pROGRAM [159]} }} ";
9509 PRINT" [173]````````````````````````[189] }} ";
9510 PRINT" }} [154]pRESS CURSOR KEY TO SELECT [159]}} ";
9511 PRINT" }} [154]pRESS return KEY TO CHOOSE [159]}} ";
9512 PRINT" }} }} ";
9513 PRINT" }} [150]hAPPY pROGRAMMING! [159]";
9514 PRINT"}} }} ";
9515 PRINT" }} }[171]``````````````[178]```````";
9516 PRINT"[192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221][155][211]CREEN [197]DITOR[159][221][154][212]HE [197]ND[159][221][155][196]OC [198]ILE #6 [159][221][173][192][192][192][192][192][192][192][192]";
9517 PRINT"[192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
9518 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
9519 GETW$
9520 PO=PEEK(1066)+128:IFPO>256THENPO=PO-256
9521 FORX=1066TO1070:POKEX,PO:NEXTX
9522 FORX=1097TO1101:POKEX,PO:NEXTX
9523 IFW$=""THEN9519
9524 IFW$=CHR$(13)THENGOTO9531
9525 IFW$=CHR$(17)ORW$=CHR$(29)ORW$=CHR$(145)ORW$=CHR$(157)THEN9527
9526 GOTO9519
9527 CO=CO+1:IFCO>2THENCO=1
9528 IFCO=1THENPOKE211,8:POKE214,9:SYS58732:PRINTB$:POKE211,8:POKE214,7:SYS58732:PRINT""A$"[146]"
9529 IFCO=2THENPOKE211,8:POKE214,7:SYS58732:PRINTA$:POKE211,8:POKE214,9:SYS58732:PRINT""B$"[146]"
9530 GOTO9519
9531 IFCO=2THENPRINT"[147][153]*******"(PEEK(55)+256*PEEK(56))-2049"[194]ASIC [194]YTES [198]REE *******":NEW
9532 POKE211,11:POKE214,3:SYS58732:PRINT"[152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
9533 POKE211,11:POKE214,4:SYS58732:PRINT"[221][155]-[158][204]OADING [196]RIVER[155]-[152][221]"
9534 POKE211,11:POKE214,5:SYS58732:PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
9535 LOAD"DOC.DRIVER",8
50000 GETW$
50001 PO=PEEK(1066)+128:IFPO>256THENPO=PO-256
50002 FORX=1066TO1070:POKEX,PO:NEXTX
50003 FORX=1097TO1101:POKEX,PO:NEXTX
50004 IFW$=""THEN50000
50005 RETURN
(.txt)
(.txt)